home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / utilities / u304.dms / in.adf / bits / FindKey.Acc / FindKey.amosSourceCode
Encoding:
AMOS Source Code  |  1992-03-22  |  282 b   |  15 lines
  1. Screen Open 0,640,240,2,Hires
  2. Palette 0,$FFF
  3. Cls 0
  4. Curs Off 
  5. Print "FindKey.Acc by James Lanng for AMOS PD"
  6. Print 
  7. Print "Press Ctrl-C to quit!"
  8. Print 
  9. NOKEYYET:
  10. Do 
  11.    K$=Inkey$
  12.    If K$="" Then Exit 
  13.    Print "Char: ";K$,"ASCII: ";Asc(K$),"Scancode: ";Scancode
  14. Loop 
  15. Goto NOKEYYET